home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
ds40bpds.zip
/
COMPRESS.ZIP
/
COMPRESS.BAS
(
.txt
)
next >
Wrap
QuickBASIC Tokenized Source
|
1991-02-24
|
9KB
|
272 lines
CompressHighScoresx
FileNameH
DaysAgol
HIGHSCORE
FileNum
FileOpen`
Numberf
Number.Of.Scoresq
WorkNum2
DeleteDay
ConvertJulian
Year-
RemainderT
Remainder1;
Remainder2
Remainer2/
Month
UserNamea
ScoreF
DateUpdatedp
Access
Sharing
ExitDOORSYS
ExitRBBS
ExitWildT
InitWild
InitDOORSYS!
InitRBBSE
CheckTimeLeft
CheckCarrier
CarrierFlag
EchoChr
ExtendedCode
WaitForEndSendW
@ BackSpace
BeepSpeaker
CalcSpacesW
SpacesNeeded
GetPort
CheckInBuffer_
CharsWaiting
OpenPortu
PutPort
ScrClr
ClrNu
How.Many.Times
Bell>
Enter"
ColorUse<
IncommD
SendEnter
LimitField
AllTrun
@ ANSIMusic
Music
BackSpaceOverb
Center
ChkKeyboard
ClrScrn
@ ColorEasy
DayOfWeek
DoorBusy
ErrorLevelSetv
Error/
Error.Level
ExitDoor
@ ExitPCB12
@ ExitPCB14F
FileExist
FileM
File.Name.Check
GetTime
Hours
Minutes
Seconds}
SinceMid
HighScores
PROGNAME
InitDoor
@ InitPCB12
@ InitPCB14
MenuManager
Menur
CenterItC
TextClr
How.Many.Bars
Select
Slct(
Barnumber_
MoveCursorZ
Parser
Searchfor/
Searchin,
ParArrayN
ERRCODEz
RandNum
@ ReadUsers5
ReadUsersSys4
@ ScriptCMD`
@ ScrUpdate
Sorterl
HowManyToSort
@ SysopPage
TimeConvert9
TimeCredit
@ Translate
ViewFile
ChkIt;
MoreP
ExitP
WaitASec
How.Long.To.Wait
Windows
TTFOREl
TTBACK
BORDER
SHADOW
Text2
WriteUsersB
SYSDPATH
BBSName
SysopNM
CALLNAME
TIMELEFTn
CommPort,
RELEASEt
FIRST
Lastg
ANSIW
Out.Of.Time
Inversez
Screen0
Screen.ToggleJ
Clr.Array
Exit.Dor.1a
Exit.Dor.2
UserFn
UserLP
Time[
Time.Left
CommOnlyq
Page"
Page.Bell
Caller
Caller.Alarm$
SysopD
Sysop.Next
Hang8
Hang.Up
User.Record]
Network
Table
Display
Display.Toggle
Printer^
Printer.Toggle
BusyFlag4
UserFilet
Parity4
Filter
BusyFile
TimeCredP
SysFirst
SysLast|
Last.Clr.Used
EchoKey
No.Enter.Send-
Exit.Dor.Clr1?
Exit.Dor.Clr2
HotKey
File.Missing
BBSTypeT
Blackj
Green
Magenta
Brown
White
Grayt
HiBlueJ
HiGreen
HiCyan
HiRed~
HiMagenta^
Yellow
HiWhite
TabSpace
Blink
Normal
Underline
BlinkText
UnderlineText
Not.Around&
Param;
DATABLOCK
CityState
Password
BusinessPhone
VoicePhoneB
LastDateOn
LastTimeOn
ExpertModez
ProtocolTypeW
LastDirListing
SecurityLevel
TimesOn
PageLength
TotalUploads
TotalDownloadsH
DailyDownloadBytes
UserComment
SysopCommentI
ElapsedTimee
Subcription
SubcriptionExpireV
AreaRegistration
AreaExpire
AreasToScan{
TotalDownloadBytese
TotalUploadBytess
DeleteFlagB
TimeEnteredDoor
AreaFromP
MemorizedMessage
TimeCalled
DailyDownloadTotal
MaxDownloadLimitl
LastRead)
MaxDownloadKLimit
ExpirationDate
LR16
LR19!
LR20)
LR211
LR229
LR23A
LR24I
LR25Q
LR26Y
LR27a
LR28i
LR32q
UserBlock
NMALLOC
JDate
Counter
Hot.Key
HSNEXT
DOORSORC.INT'
PCBoard only
Wildcat and PCBoard only
Wildcat onlyd
Wildcat onlyd
Wildcat onlyd
Wildcat, PCBoard, and GAP only
GAP onlyC
Last read pointers for PCBoard only
Door Source - Copyrighted 1988,1989, 1990 - Written by Todd Miller
Version 3.2 - Computer City, USA
ALL OR ANY MODIFCATIONS TO THIS PART OF DOOR SOURCE OR ANY OTHERl
PART OF DOOR SOURCE WILL RESULT IN MAJOR UNCORRECTABLE BUGS!T
Door Source 3.2 init completed!
COMPRESS.INT'
COMPRESS.BAS - Door Source 3.2 utility - This should not be modified
in any way, but used as a seperate module compiled in
your door program.e
Copyrighted Computer City, USA 1991
CompressHighScores
WORK.FILm
Now copy the workfile over to the real file
WORK.FIL
ConvertJulian